/ APDL Eductation Resources / APDL Eductation Resources.iso / programs / mouse / mchange / !MChange / !RunImage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 20 f4 20 3e | 21 52 75 6e 49 6d 61 67 |.... . >|!RunImag|
|00000010| 65 0d 00 14 11 20 f4 20 | 54 68 69 73 20 69 73 20 |e.... . |This is |
|00000020| 50 44 0d 00 1e 17 20 f4 | 20 a9 20 4a 6f 68 6e 20 |PD.... .| . John |
|00000030| 52 65 65 64 20 31 39 39 | 33 0d 00 28 0e 20 ee 85 |Reed 199|3..(. ..|
|00000040| f2 65 72 72 28 b9 29 0d | 00 32 09 f2 69 6e 69 74 |.err(.).|.2..init|
|00000050| 0d 00 3c 28 20 76 65 72 | 73 24 3d 22 31 2e 31 30 |..<( ver|s$="1.10|
|00000060| 20 28 32 39 2d 4d 61 79 | 2d 39 33 29 22 3a f2 64 | (29-May|-93)":.d|
|00000070| 6f 76 65 72 73 69 6f 6e | 0d 00 46 0e 20 ee 85 f2 |oversion|..F. ...|
|00000080| 65 72 72 28 a3 29 0d 00 | 50 05 f5 0d 00 5a 0a 20 |err(.)..|P....Z. |
|00000090| f2 70 6f 6c 6c 0d 00 64 | 0a 20 fd 71 75 69 74 0d |.poll..d|. .quit.|
|000000a0| 00 6e 0a 20 f2 71 75 69 | 74 0d 00 78 06 20 e0 0d |.n. .qui|t..x. ..|
|000000b0| 00 82 0a dd f2 69 6e 69 | 74 0d 00 8c 3b de 20 6d |.....ini|t...;. m|
|000000c0| 61 69 6e 20 32 35 36 2c | 6d 61 69 6e 77 6f 72 6b |ain 256,|mainwork|
|000000d0| 20 32 35 36 2c 69 6e 66 | 6f 20 35 31 32 2c 69 6e | 256,inf|o 512,in|
|000000e0| 66 6f 77 6f 72 6b 20 35 | 31 32 2c 62 6c 6f 63 6b |fowork 5|12,block|
|000000f0| 20 32 35 36 0d 00 96 10 | 20 de 20 6d 65 6e 75 25 | 256....| . menu%|
|00000100| 20 32 35 36 0d 00 a0 47 | c8 99 20 22 57 69 6d 70 | 256...G|.. "Wimp|
|00000110| 5f 49 6e 69 74 69 61 6c | 69 73 65 22 2c 32 30 30 |_Initial|ise",200|
|00000120| 2c 26 34 42 35 33 34 31 | 35 34 2c 22 4d 6f 75 73 |,&4B5341|54,"Mous|
|00000130| 65 20 43 6f 6e 74 72 6f | 6c 6c 65 72 22 20 b8 20 |e Contro|ller" . |
|00000140| 2c 74 61 73 6b 68 61 6e | 64 6c 65 0d 00 aa 35 c8 |,taskhan|dle...5.|
|00000150| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 54 65 6d 70 |. "Wimp_|OpenTemp|
|00000160| 6c 61 74 65 22 2c 2c 22 | 3c 4d 43 68 61 6e 67 65 |late",,"|<MChange|
|00000170| 24 44 69 72 3e 2e 54 65 | 6d 70 6c 61 74 65 73 22 |$Dir>.Te|mplates"|
|00000180| 0d 00 b4 45 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |...E.. "|Wimp_Loa|
|00000190| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 6d 61 69 6e |dTemplat|e",,main|
|000001a0| 2c 6d 61 69 6e 77 6f 72 | 6b 2c 6d 61 69 6e 77 6f |,mainwor|k,mainwo|
|000001b0| 72 6b 2b 31 30 32 34 2c | 2d 31 2c 22 57 69 6e 64 |rk+1024,|-1,"Wind|
|000001c0| 6f 77 22 2c 30 0d 00 be | 44 20 c8 99 20 22 57 69 |ow",0...|D .. "Wi|
|000001d0| 6d 70 5f 4c 6f 61 64 54 | 65 6d 70 6c 61 74 65 22 |mp_LoadT|emplate"|
|000001e0| 2c 2c 69 6e 66 6f 2c 69 | 6e 66 6f 77 6f 72 6b 2c |,,info,i|nfowork,|
|000001f0| 69 6e 66 6f 77 6f 72 6b | 2b 31 30 32 34 2c 2d 31 |infowork|+1024,-1|
|00000200| 2c 22 69 6e 66 6f 22 2c | 30 0d 00 c8 2d c8 99 20 |,"info",|0...-.. |
|00000210| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 57 69 6e 64 |"Wimp_Cr|eateWind|
|00000220| 6f 77 22 2c 2c 6d 61 69 | 6e 20 b8 20 6d 61 69 6e |ow",,mai|n . main|
|00000230| 68 61 6e 64 6c 65 0d 00 | d2 45 c8 99 20 22 57 69 |handle..|.E.. "Wi|
|00000240| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00000250| 2c 2c 69 6e 66 6f 20 b8 | 20 69 6e 66 6f 68 61 6e |,,info .| infohan|
|00000260| 64 6c 65 3a c8 99 20 22 | 57 69 6d 70 5f 43 6c 6f |dle:.. "|Wimp_Clo|
|00000270| 73 65 54 65 6d 70 6c 61 | 74 65 22 0d 00 dc 0a 71 |seTempla|te"....q|
|00000280| 75 69 74 3d a3 0d 00 e6 | 26 f2 64 65 73 69 67 6e |uit=....|&.design|
|00000290| 28 6d 65 6e 75 25 2c 22 | 4d 43 68 61 6e 67 65 2c |(menu%,"|MChange,|
|000002a0| 49 6e 66 6f 2c 51 75 69 | 74 22 29 0d 00 f0 17 6d |Info,Qui|t")....m|
|000002b0| 65 6e 75 25 21 33 32 3d | 69 6e 66 6f 68 61 6e 64 |enu%!32=|infohand|
|000002c0| 6c 65 0d 00 fa 10 f2 64 | 65 66 61 75 6c 74 66 69 |le.....d|efaultfi|
|000002d0| 6c 65 0d 01 04 10 f2 63 | 68 61 6e 67 65 73 70 65 |le.....c|hangespe|
|000002e0| 65 64 0d 01 0e 0c f2 67 | 65 74 73 69 7a 65 0d 01 |ed.....g|etsize..|
|000002f0| 18 05 e1 0d 01 22 04 0d | 01 2c 12 dd 20 f2 64 65 |....."..|.,.. .de|
|00000300| 66 61 75 6c 74 66 69 6c | 65 0d 01 36 24 66 69 6c |faultfil|e..6$fil|
|00000310| 65 25 3d 8e 28 22 3c 4d | 43 68 61 6e 67 65 24 44 |e%=.("<M|Change$D|
|00000320| 69 72 3e 2e 44 65 66 61 | 75 6c 74 22 29 0d 01 40 |ir>.Defa|ult")..@|
|00000330| 10 e7 20 66 69 6c 65 25 | 3c 3e 30 20 8c 0d 01 4a |.. file%|<>0 ...J|
|00000340| 11 73 70 65 65 64 3d 9a | 23 66 69 6c 65 25 0d 01 |.speed=.|#file%..|
|00000350| 54 0b d9 23 66 69 6c 65 | 25 0d 01 5e 23 73 70 65 |T..#file|%..^#spe|
|00000360| 65 64 24 3d bd 28 73 70 | 65 65 64 29 3a 73 70 65 |ed$=.(sp|eed):spe|
|00000370| 65 64 3d bb 28 73 70 65 | 65 64 24 29 0d 01 68 05 |ed=.(spe|ed$)..h.|
|00000380| cc 0d 01 72 0b 73 70 65 | 65 64 3d 33 0d 01 7c 05 |...r.spe|ed=3..|.|
|00000390| cd 0d 01 86 21 f2 64 69 | 73 70 6c 61 79 28 30 2c |....!.di|splay(0,|
|000003a0| 73 70 65 65 64 24 2c 6d | 61 69 6e 68 61 6e 64 6c |speed$,m|ainhandl|
|000003b0| 65 29 0d 01 90 05 e1 0d | 01 9a 04 0d 01 a4 0a dd |e)......|........|
|000003c0| f2 70 6f 6c 6c 0d 01 ae | 23 c8 99 20 22 57 69 6d |.poll...|#.. "Wim|
|000003d0| 70 5f 50 6f 6c 6c 22 2c | 30 2c 62 6c 6f 63 6b 20 |p_Poll",|0,block |
|000003e0| b8 20 72 65 61 73 6f 6e | 0d 01 b8 0f c8 8e 20 72 |. reason|...... r|
|000003f0| 65 61 73 6f 6e 20 ca 0d | 01 c2 25 c9 20 32 20 3a |eason ..|..%. 2 :|
|00000400| 20 c8 99 20 22 57 69 6d | 70 5f 4f 70 65 6e 57 69 | .. "Wim|p_OpenWi|
|00000410| 6e 64 6f 77 22 2c 2c 62 | 6c 6f 63 6b 0d 01 cc 26 |ndow",,b|lock...&|
|00000420| c9 20 33 20 3a 20 c8 99 | 20 22 57 69 6d 70 5f 43 |. 3 : ..| "Wimp_C|
|00000430| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 62 6c 6f |loseWind|ow",,blo|
|00000440| 63 6b 0d 01 d6 22 c9 20 | 36 20 3a 20 f2 6d 6f 75 |ck...". |6 : .mou|
|00000450| 73 65 62 65 65 6e 63 6c | 69 63 6b 65 64 28 62 6c |sebeencl|icked(bl|
|00000460| 6f 63 6b 29 0d 01 e0 1d | c9 20 38 20 3a 20 e7 20 |ock)....|. 8 : . |
|00000470| ac 20 a4 6f 75 72 6b 65 | 79 20 8c 20 f2 6b 65 79 |. .ourke|y . .key|
|00000480| 73 0d 01 ea 18 c9 20 39 | 20 3a 20 f2 64 6f 6d 65 |s..... 9| : .dome|
|00000490| 6e 75 28 62 6c 6f 63 6b | 29 0d 01 f4 22 c9 20 31 |nu(block|)...". 1|
|000004a0| 37 2c 31 38 20 3a 20 f2 | 6d 65 73 73 61 67 65 73 |7,18 : .|messages|
|000004b0| 74 69 6d 65 28 62 6c 6f | 63 6b 29 0d 01 fe 05 cb |time(blo|ck).....|
|000004c0| 0d 02 08 05 e1 0d 02 12 | 20 dd f2 71 75 69 74 3a |........| ..quit:|
|000004d0| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 44 6f |.. "Wimp|_CloseDo|
|000004e0| 77 6e 22 3a e1 0d 02 1c | 3b 20 dd 20 f2 6f 70 65 |wn":....|; . .ope|
|000004f0| 6e 6d 61 69 6e 77 69 6e | 64 6f 77 28 62 6c 6f 63 |nmainwin|dow(bloc|
|00000500| 6b 29 3a c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |k):.. "W|imp_Open|
|00000510| 57 69 6e 64 6f 77 22 2c | 2c 62 6c 6f 63 6b 3a e1 |Window",|,block:.|
|00000520| 0d 02 26 1a dd f2 6d 6f | 75 73 65 62 65 65 6e 63 |..&...mo|usebeenc|
|00000530| 6c 69 63 6b 65 64 28 62 | 6c 29 0d 02 30 19 20 78 |licked(b|l)..0. x|
|00000540| 25 3d 21 62 6c 6f 63 6b | 3a 79 25 3d 62 6c 6f 63 |%=!block|:y%=bloc|
|00000550| 6b 21 34 0d 02 3a 25 e7 | 20 62 6c 21 31 32 3d 6d |k!4..:%.| bl!12=m|
|00000560| 61 69 6e 68 61 6e 64 6c | 65 20 8c 20 f2 63 6c 69 |ainhandl|e . .cli|
|00000570| 63 6b 6f 6e 6d 61 69 6e | 0d 02 44 05 e1 0d 02 4e |ckonmain|..D....N|
|00000580| 11 dd f2 63 6c 69 63 6b | 6f 6e 6d 61 69 6e 0d 02 |...click|onmain..|
|00000590| 58 1a 20 c8 97 58 2c 59 | 2c 5a 3a e7 20 5a 3d 31 |X. ..X,Y|,Z:. Z=1|
|000005a0| 20 84 20 5a 3d 34 20 8c | 0d 02 62 0e c8 8e 20 62 | . Z=4 .|..b... b|
|000005b0| 6c 21 31 36 20 ca 0d 02 | 6c 20 c9 20 31 20 3a 20 |l!16 ...|l . 1 : |
|000005c0| f2 64 72 61 67 62 6f 78 | 28 31 2c 6d 61 69 6e 68 |.dragbox|(1,mainh|
|000005d0| 61 6e 64 6c 65 29 0d 02 | 76 16 c9 20 30 20 3a 20 |andle)..|v.. 0 : |
|000005e0| f2 63 68 61 6e 67 65 73 | 70 65 65 64 0d 02 80 05 |.changes|peed....|
|000005f0| cb 0d 02 8a 06 20 cc 0d | 02 94 1e f2 73 68 6f 77 |..... ..|....show|
|00000600| 6d 65 6e 75 28 6d 65 6e | 75 25 2c 78 25 2c 79 25 |menu(men|u%,x%,y%|
|00000610| 2c a3 2c 32 29 0d 02 9e | 06 20 cd 0d 02 a8 05 e1 |,.,2)...|. ......|
|00000620| 0d 02 b2 19 dd f2 6d 65 | 73 73 61 67 65 73 74 69 |......me|ssagesti|
|00000630| 6d 65 28 62 6c 6f 63 6b | 29 0d 02 bc 11 c8 8e 20 |me(block|)...... |
|00000640| 62 6c 6f 63 6b 21 31 36 | 20 ca 0d 02 c6 0e 20 c9 |block!16| ..... .|
|00000650| 20 30 3a f2 71 75 69 74 | 0d 02 d0 1b c9 20 26 34 | 0:.quit|..... &4|
|00000660| 30 30 43 31 3a f2 70 6f | 6c 6c 3a f2 67 65 74 73 |00C1:.po|ll:.gets|
|00000670| 69 7a 65 0d 02 da d4 c9 | 20 26 34 30 30 43 32 3a |ize.....| &400C2:|
|00000680| 6e 61 6d 65 24 3d a4 47 | 65 74 53 74 72 28 62 6c |name$=.G|etStr(bl|
|00000690| 6f 63 6b 2b 32 38 29 3a | 6e 65 77 74 61 73 6b 69 |ock+28):|newtaski|
|000006a0| 64 25 3d 62 6c 6f 63 6b | 21 34 3a e7 20 6e 61 6d |d%=block|!4:. nam|
|000006b0| 65 24 3d 22 4d 6f 75 73 | 65 20 43 6f 6e 74 72 6f |e$="Mous|e Contro|
|000006c0| 6c 6c 65 72 22 20 80 20 | 6e 65 77 74 61 73 6b 69 |ller" . |newtaski|
|000006d0| 64 25 3c 3e 74 61 73 6b | 68 61 6e 64 6c 65 20 8c |d%<>task|handle .|
|000006e0| 20 24 28 62 6c 6f 63 6b | 2b 34 29 3d 22 4d 6f 75 | $(block|+4)="Mou|
|000006f0| 73 65 20 43 6f 6e 74 72 | 6f 6c 6c 65 72 20 69 73 |se Contr|oller is|
|00000700| 20 61 6c 72 65 61 64 79 | 20 6c 6f 61 64 65 64 22 | already| loaded"|
|00000710| 3a c8 99 20 22 57 69 6d | 70 5f 52 65 70 6f 72 74 |:.. "Wim|p_Report|
|00000720| 45 72 72 6f 72 22 2c 62 | 6c 6f 63 6b 2c 31 2c 22 |Error",b|lock,1,"|
|00000730| 4d 6f 75 73 65 20 43 6f | 6e 74 72 6f 6c 6c 65 72 |Mouse Co|ntroller|
|00000740| 22 3a f2 71 75 69 74 0d | 02 e4 06 20 cb 0d 02 ee |":.quit.|... ....|
|00000750| 05 e1 0d 02 f8 13 dd 20 | f2 65 72 72 28 74 6f 71 |....... |.err(toq|
|00000760| 75 69 74 25 29 0d 03 02 | 0c 21 62 6c 6f 63 6b 3d |uit%)...|.!block=|
|00000770| 9f 0d 03 0c 5c e7 20 74 | 6f 71 75 69 74 25 3d b9 |....\. t|oquit%=.|
|00000780| 20 24 28 62 6c 6f 63 6b | 2b 34 29 3d 22 41 20 66 | $(block|+4)="A f|
|00000790| 61 74 61 6c 20 65 72 72 | 6f 72 20 28 22 2b f6 24 |atal err|or ("+.$|
|000007a0| 2b 22 2c 20 22 2b c3 9e | 2b 22 29 2c 20 68 61 73 |+", "+..|+"), has|
|000007b0| 20 6f 63 63 75 72 72 65 | 64 2e 20 49 20 6d 75 73 | occurre|d. I mus|
|000007c0| 74 20 71 75 69 74 22 3a | f2 71 75 69 74 0d 03 16 |t quit":|.quit...|
|000007d0| 0a c8 8e 20 9f 20 ca 0d | 03 20 35 20 7f 20 24 28 |... . ..|. 5 . $(|
|000007e0| 62 6c 6f 63 6b 2b 34 29 | 3d 22 45 72 72 6f 72 20 |block+4)|="Error |
|000007f0| 3a 20 22 2b f6 24 2b 22 | 2c 20 65 72 72 6f 72 20 |: "+.$+"|, error |
|00000800| 63 6f 64 65 20 22 2b c3 | 9e 2b 22 22 0d 03 2a 06 |code "+.|.+""..*.|
|00000810| 20 cb 0d 03 34 2b c8 99 | 20 22 57 69 6d 70 5f 52 | ...4+..| "Wimp_R|
|00000820| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 6c 6f 63 |eportErr|or",bloc|
|00000830| 6b 2c 31 2c 22 4d 43 68 | 61 6e 67 65 22 0d 03 3e |k,1,"MCh|ange"..>|
|00000840| 16 20 e7 20 74 6f 71 75 | 69 74 25 20 f2 71 75 69 |. . toqu|it% .qui|
|00000850| 74 3a e0 0d 03 48 05 e1 | 0d 03 52 10 dd 20 f2 64 |t:...H..|..R.. .d|
|00000860| 6f 76 65 72 73 69 6f 6e | 0d 03 5c 4e 21 62 6c 6f |oversion|..\N!blo|
|00000870| 63 6b 3d 69 6e 66 6f 68 | 61 6e 64 6c 65 3a 62 6c |ck=infoh|andle:bl|
|00000880| 6f 63 6b 21 34 3d 30 3a | c8 99 22 57 69 6d 70 5f |ock!4=0:|.."Wimp_|
|00000890| 47 65 74 49 63 6f 6e 53 | 74 61 74 65 22 2c 2c 62 |GetIconS|tate",,b|
|000008a0| 6c 6f 63 6b 3a 24 28 62 | 6c 6f 63 6b 21 32 38 29 |lock:$(b|lock!28)|
|000008b0| 3d 76 65 72 73 24 0d 03 | 66 35 62 6c 6f 63 6b 21 |=vers$..|f5block!|
|000008c0| 38 3d 30 3a 62 6c 6f 63 | 6b 21 31 32 3d 30 3a c8 |8=0:bloc|k!12=0:.|
|000008d0| 99 22 57 69 6d 70 5f 53 | 65 74 49 63 6f 6e 53 74 |."Wimp_S|etIconSt|
|000008e0| 61 74 65 22 2c 2c 62 6c | 6f 63 6b 0d 03 70 05 e1 |ate",,bl|ock..p..|
|000008f0| 0d 03 7a 17 dd 20 f2 64 | 65 73 69 67 6e 28 6d 25 |..z.. .d|esign(m%|
|00000900| 2c 6d 65 6e 75 24 29 0d | 03 84 19 6d 65 6e 75 25 |,menu$).|...menu%|
|00000910| 3f 31 32 3d 37 3a 6d 65 | 6e 75 25 3f 31 33 3d 32 |?12=7:me|nu%?13=2|
|00000920| 0d 03 8e 19 6d 65 6e 75 | 25 3f 31 34 3d 37 3a 6d |....menu|%?14=7:m|
|00000930| 65 6e 75 25 3f 31 35 3d | 30 0d 03 98 1c 6d 65 6e |enu%?15=|0....men|
|00000940| 75 25 21 31 36 3d 31 34 | 34 3a 6d 65 6e 75 25 21 |u%!16=14|4:menu%!|
|00000950| 32 30 3d 34 30 0d 03 a2 | 1c 6d 65 6e 75 25 21 32 |20=40...|.menu%!2|
|00000960| 34 3d 30 3a 70 74 72 25 | 3d 6d 65 6e 75 25 2b 32 |4=0:ptr%|=menu%+2|
|00000970| 38 0d 03 ac 20 24 6d 65 | 6e 75 25 3d c0 6d 65 6e |8... $me|nu%=.men|
|00000980| 75 24 2c a7 6d 65 6e 75 | 24 2c 22 2c 22 29 2d 31 |u$,.menu|$,",")-1|
|00000990| 29 0d 03 b6 0e 6d 65 6e | 75 24 2b 3d 22 2c 22 0d |)....men|u$+=",".|
|000009a0| 03 c0 0e 65 6e 74 72 69 | 65 73 25 3d 30 0d 03 ca |...entri|es%=0...|
|000009b0| 10 c8 95 20 6d 65 6e 75 | 24 3c 3e 22 22 0d 03 d4 |... menu|$<>""...|
|000009c0| 1f 6d 65 6e 75 24 3d c1 | 6d 65 6e 75 24 2c a7 6d |.menu$=.|menu$,.m|
|000009d0| 65 6e 75 24 2c 22 2c 22 | 29 2b 31 29 0d 03 de 11 |enu$,","|)+1)....|
|000009e0| e7 20 6d 65 6e 75 24 3c | 3e 22 22 20 8c 0d 03 e8 |. menu$<|>"" ....|
|000009f0| 15 21 70 74 72 25 3d 30 | 3a 70 74 72 25 21 34 3d |.!ptr%=0|:ptr%!4=|
|00000a00| 2d 31 0d 03 f2 13 70 74 | 72 25 21 38 3d 26 37 30 |-1....pt|r%!8=&70|
|00000a10| 30 30 30 32 31 0d 03 fc | 24 24 28 70 74 72 25 2b |00021...|$$(ptr%+|
|00000a20| 31 32 29 3d c0 6d 65 6e | 75 24 2c a7 6d 65 6e 75 |12)=.men|u$,.menu|
|00000a30| 24 2c 22 2c 22 29 2d 31 | 29 0d 04 06 0c 70 74 72 |$,",")-1|)....ptr|
|00000a40| 25 2b 3d 32 34 0d 04 10 | 0f 65 6e 74 72 69 65 73 |%+=24...|.entries|
|00000a50| 25 2b 3d 31 0d 04 1a 05 | cd 0d 04 24 05 ce 0d 04 |%+=1....|...$....|
|00000a60| 2e 1b 70 74 72 25 21 2d | 32 34 3d 70 74 72 25 21 |..ptr%!-|24=ptr%!|
|00000a70| 2d 32 34 20 84 20 26 38 | 30 0d 04 38 06 20 e1 0d |-24 . &8|0..8. ..|
|00000a80| 04 42 31 20 dd 20 f2 73 | 68 6f 77 6d 65 6e 75 28 |.B1 . .s|howmenu(|
|00000a90| 6d 65 6e 75 25 2c 78 25 | 2c 79 25 2c 6f 6e 69 63 |menu%,x%|,y%,onic|
|00000aa0| 6f 6e 62 61 72 25 2c 65 | 6e 74 72 69 65 73 25 29 |onbar%,e|ntries%)|
|00000ab0| 0d 04 4c 3b e7 20 6f 6e | 69 63 6f 6e 62 61 72 25 |..L;. on|iconbar%|
|00000ac0| 20 8c 20 79 70 6f 73 25 | 3d 39 36 2b 65 6e 74 72 | . ypos%|=96+entr|
|00000ad0| 69 65 73 25 2a 34 34 20 | 8b 20 c8 97 20 58 2c 59 |ies%*44 |. .. X,Y|
|00000ae0| 2c 5a 3a 20 79 70 6f 73 | 25 3d 59 0d 04 56 2b c8 |,Z: ypos|%=Y..V+.|
|00000af0| 99 20 22 57 69 6d 70 5f | 43 72 65 61 74 65 4d 65 |. "Wimp_|CreateMe|
|00000b00| 6e 75 22 2c 2c 6d 65 6e | 75 25 2c 78 25 2d 39 36 |nu",,men|u%,x%-96|
|00000b10| 2c 79 70 6f 73 25 0d 04 | 60 05 e1 0d 04 6a 10 dd |,ypos%..|`....j..|
|00000b20| f2 64 6f 6d 65 6e 75 28 | 62 6c 29 0d 04 74 12 63 |.domenu(|bl)..t.c|
|00000b30| 68 6f 69 63 65 25 3d 21 | 62 6c 6f 63 6b 0d 04 7e |hoice%=!|block..~|
|00000b40| 10 c8 8e 20 63 68 6f 69 | 63 65 25 20 ca 0d 04 88 |... choi|ce% ....|
|00000b50| 0f c9 20 31 3a 20 71 75 | 69 74 3d b9 0d 04 92 05 |.. 1: qu|it=.....|
|00000b60| cb 0d 04 9c 0e e7 20 ac | 20 71 75 69 74 20 8c 0d |...... .| quit ..|
|00000b70| 04 a6 23 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |..#.. "W|imp_GetP|
|00000b80| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 2c 62 6c 6f |ointerIn|fo",,blo|
|00000b90| 63 6b 0d 04 b0 2c e7 20 | 62 6c 6f 63 6b 21 38 3d |ck...,. |block!8=|
|00000ba0| 31 20 8c 20 f2 73 68 6f | 77 6d 65 6e 75 28 6d 65 |1 . .sho|wmenu(me|
|00000bb0| 6e 75 25 2c 78 25 2c 79 | 25 2c a3 2c 32 29 0d 04 |nu%,x%,y|%,.,2)..|
|00000bc0| ba 05 cd 0d 04 c4 06 20 | e1 0d 04 ce 05 3a 0d 04 |....... |.....:..|
|00000bd0| d8 22 20 dd 20 f2 64 69 | 73 70 6c 61 79 28 69 63 |." . .di|splay(ic|
|00000be0| 6f 6e 6e 75 6d 2c 74 24 | 2c 68 61 6e 64 6c 65 29 |onnum,t$|,handle)|
|00000bf0| 0d 04 e2 12 20 21 62 6c | 6f 63 6b 3d 68 61 6e 64 |.... !bl|ock=hand|
|00000c00| 6c 65 0d 04 ec 14 20 62 | 6c 6f 63 6b 21 34 3d 69 |le.... b|lock!4=i|
|00000c10| 63 6f 6e 6e 75 6d 0d 04 | f6 21 20 c8 99 22 57 69 |connum..|.! .."Wi|
|00000c20| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00000c30| 2c 2c 62 6c 6f 63 6b 0d | 05 00 13 20 24 28 62 6c |,,block.|... $(bl|
|00000c40| 6f 63 6b 21 32 38 29 3d | 74 24 0d 05 0a 36 20 62 |ock!28)=|t$...6 b|
|00000c50| 6c 6f 63 6b 21 38 3d 30 | 3a 62 6c 6f 63 6b 21 31 |lock!8=0|:block!1|
|00000c60| 32 3d 30 3a c8 99 22 57 | 69 6d 70 5f 53 65 74 49 |2=0:.."W|imp_SetI|
|00000c70| 63 6f 6e 53 74 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |conState|",,block|
|00000c80| 0d 05 14 06 20 e1 0d 05 | 1e 06 20 3a 0d 05 28 1b |.... ...|.. :..(.|
|00000c90| dd 20 f2 64 72 61 67 62 | 6f 78 28 69 63 6f 6e 2c |. .dragb|ox(icon,|
|00000ca0| 68 61 6e 64 6c 65 29 0d | 05 32 11 62 6c 69 70 62 |handle).|.2.blipb|
|00000cb0| 6c 6f 70 3d 69 63 6f 6e | 0d 05 3c 11 21 62 6c 6f |lop=icon|..<.!blo|
|00000cc0| 63 6b 3d 68 61 6e 64 6c | 65 0d 05 46 23 c8 99 20 |ck=handl|e..F#.. |
|00000cd0| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 53 |"Wimp_Ge|tWindowS|
|00000ce0| 74 61 74 65 22 2c 2c 62 | 6c 6f 63 6b 0d 05 50 18 |tate",,b|lock..P.|
|00000cf0| 6f 78 25 3d 62 6c 6f 63 | 6b 21 34 2d 62 6c 6f 63 |ox%=bloc|k!4-bloc|
|00000d00| 6b 21 32 30 0d 05 5a 19 | 6f 79 25 3d 62 6c 6f 63 |k!20..Z.|oy%=bloc|
|00000d10| 6b 21 31 36 2d 62 6c 6f | 63 6b 21 32 34 0d 05 64 |k!16-blo|ck!24..d|
|00000d20| 10 62 6c 6f 63 6b 21 34 | 3d 69 63 6f 6e 0d 05 6e |.block!4|=icon..n|
|00000d30| 21 c8 99 20 22 57 69 6d | 70 5f 47 65 74 49 63 6f |!.. "Wim|p_GetIco|
|00000d40| 6e 53 74 61 74 65 22 2c | 2c 62 6c 6f 63 6b 0d 05 |nState",|,block..|
|00000d50| 78 11 21 62 6c 6f 63 6b | 3d 68 61 6e 64 6c 65 0d |x.!block|=handle.|
|00000d60| 05 82 0d 62 6c 6f 63 6b | 21 34 3d 31 0d 05 8c 17 |...block|!4=1....|
|00000d70| 62 6c 6f 63 6b 21 38 3d | 6f 78 25 2b 62 6c 6f 63 |block!8=|ox%+bloc|
|00000d80| 6b 21 38 0d 05 96 19 62 | 6c 6f 63 6b 21 31 32 3d |k!8....b|lock!12=|
|00000d90| 6f 79 25 2b 62 6c 6f 63 | 6b 21 31 32 0d 05 a0 19 |oy%+bloc|k!12....|
|00000da0| 62 6c 6f 63 6b 21 31 36 | 3d 6f 78 25 2b 62 6c 6f |block!16|=ox%+blo|
|00000db0| 63 6b 21 31 36 0d 05 aa | 19 62 6c 6f 63 6b 21 32 |ck!16...|.block!2|
|00000dc0| 30 3d 6f 79 25 2b 62 6c | 6f 63 6b 21 32 30 0d 05 |0=oy%+bl|ock!20..|
|00000dd0| b4 19 62 6c 6f 63 6b 21 | 32 34 3d 30 3a 62 6c 6f |..block!|24=0:blo|
|00000de0| 63 6b 21 32 38 3d 30 0d | 05 be 16 62 6c 6f 63 6b |ck!28=0.|...block|
|00000df0| 21 33 32 3d 26 37 46 46 | 46 46 46 46 46 0d 05 c8 |!32=&7FF|FFFFF...|
|00000e00| 16 62 6c 6f 63 6b 21 33 | 36 3d 26 37 46 46 46 46 |.block!3|6=&7FFFF|
|00000e10| 46 46 46 0d 05 d2 1c c8 | 99 20 22 57 69 6d 70 5f |FFF.....|. "Wimp_|
|00000e20| 44 72 61 67 42 6f 78 22 | 2c 2c 62 6c 6f 63 6b 0d |DragBox"|,,block.|
|00000e30| 05 dc 05 e1 0d 05 e6 05 | 3a 0d 05 f0 12 dd 20 f2 |........|:..... .|
|00000e40| 63 68 61 6e 67 65 73 70 | 65 65 64 0d 05 fa 0d 6f |changesp|eed....o|
|00000e50| 6c 64 3d 73 70 65 65 64 | 0d 06 04 27 73 70 65 65 |ld=speed|...'spee|
|00000e60| 64 24 3d a4 67 65 74 70 | 72 6f 70 65 72 74 65 78 |d$=.getp|ropertex|
|00000e70| 74 28 30 2c 6d 61 69 6e | 68 61 6e 64 6c 65 29 0d |t(0,main|handle).|
|00000e80| 06 0e b5 e7 20 73 70 65 | 65 64 24 3d 22 30 22 20 |.... spe|ed$="0" |
|00000e90| 8c 20 24 28 62 6c 6f 63 | 6b 2b 34 29 3d 22 44 6f |. $(bloc|k+4)="Do|
|00000ea0| 6e 27 74 20 62 65 20 73 | 69 6c 6c 79 20 2d 20 54 |n't be s|illy - T|
|00000eb0| 68 65 20 6d 6f 75 73 65 | 20 77 6f 75 6c 64 6e 27 |he mouse| wouldn'|
|00000ec0| 74 20 6d 6f 76 65 20 61 | 74 20 61 6c 6c 20 69 66 |t move a|t all if|
|00000ed0| 20 79 6f 75 20 73 65 74 | 20 69 74 20 74 6f 20 7a | you set| it to z|
|00000ee0| 65 72 6f 21 22 3a c8 99 | 20 22 57 69 6d 70 5f 52 |ero!":..| "Wimp_R|
|00000ef0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 62 6c 6f 63 |eportErr|or",bloc|
|00000f00| 6b 2c 31 2c 22 4d 6f 75 | 73 65 20 43 6f 6e 74 72 |k,1,"Mou|se Contr|
|00000f10| 6f 6c 6c 65 72 22 3a f2 | 64 69 73 70 6c 61 79 28 |oller":.|display(|
|00000f20| 30 2c c3 6f 6c 64 2c 6d | 61 69 6e 68 61 6e 64 6c |0,.old,m|ainhandl|
|00000f30| 65 29 3a e1 0d 06 18 84 | e7 20 73 70 65 65 64 24 |e):.....|. speed$|
|00000f40| 3c 3e 22 31 22 20 80 20 | 73 70 65 65 64 24 3c 3e |<>"1" . |speed$<>|
|00000f50| 22 32 22 20 20 80 20 73 | 70 65 65 64 24 3c 3e 22 |"2"  . s|peed$<>"|
|00000f60| 33 22 20 80 20 73 70 65 | 65 64 24 3c 3e 22 34 22 |3" . spe|ed$<>"4"|
|00000f70| 20 80 20 73 70 65 65 64 | 24 3c 3e 22 35 22 20 80 | . speed|$<>"5" .|
|00000f80| 20 73 70 65 65 64 24 3c | 3e 22 36 22 20 80 20 73 | speed$<|>"6" . s|
|00000f90| 70 65 65 64 24 3c 3e 22 | 37 22 20 80 20 73 70 65 |peed$<>"|7" . spe|
|00000fa0| 65 64 24 3c 3e 22 38 22 | 20 80 20 73 70 65 65 64 |ed$<>"8"| . speed|
|00000fb0| 24 3c 3e 22 39 22 20 8c | 0d 06 22 85 24 28 62 6c |$<>"9" .|..".$(bl|
|00000fc0| 6f 63 6b 2b 34 29 3d 22 | 50 6c 65 61 73 65 20 65 |ock+4)="|Please e|
|00000fd0| 6e 74 65 72 20 61 20 6e | 75 6d 62 65 72 20 62 65 |nter a n|umber be|
|00000fe0| 74 77 65 65 6e 20 31 20 | 61 6e 64 20 39 22 3a c8 |tween 1 |and 9":.|
|00000ff0| 99 20 22 57 69 6d 70 5f | 52 65 70 6f 72 74 45 72 |. "Wimp_|ReportEr|
|00001000| 72 6f 72 22 2c 62 6c 6f | 63 6b 2c 31 2c 22 4d 6f |ror",blo|ck,1,"Mo|
|00001010| 75 73 65 20 43 6f 6e 74 | 72 6f 6c 6c 65 72 22 3a |use Cont|roller":|
|00001020| f2 64 69 73 70 6c 61 79 | 28 30 2c c3 6f 6c 64 2c |.display|(0,.old,|
|00001030| 6d 61 69 6e 68 61 6e 64 | 6c 65 29 3a e1 0d 06 2c |mainhand|le):...,|
|00001040| 05 cc 0d 06 36 05 cd 0d | 06 40 13 73 70 65 65 64 |....6...|.@.speed|
|00001050| 3d bb 28 73 70 65 65 64 | 24 29 0d 06 4a 0d c8 97 |=.(speed|$)..J...|
|00001060| 88 20 73 70 65 65 64 0d | 06 54 05 e1 0d 06 5e 05 |. speed.|.T....^.|
|00001070| 3a 0d 06 68 0d dd 20 a4 | 6f 75 72 6b 65 79 0d 06 |:..h.. .|ourkey..|
|00001080| 72 77 72 65 74 75 72 6e | 25 3d 28 21 62 6c 6f 63 |rwreturn|%=(!bloc|
|00001090| 6b 3d 6d 61 69 6e 68 61 | 6e 64 6c 65 20 80 20 62 |k=mainha|ndle . b|
|000010a0| 6c 6f 63 6b 21 32 34 3d | 31 33 29 3a e7 20 72 65 |lock!24=|13):. re|
|000010b0| 74 75 72 6e 25 20 8c 20 | c8 99 22 57 69 6d 70 5f |turn% . |.."Wimp_|
|000010c0| 53 65 74 43 61 72 65 74 | 50 6f 73 69 74 69 6f 6e |SetCaret|Position|
|000010d0| 22 2c 6d 61 69 6e 68 61 | 6e 64 6c 65 2c 2d 31 2c |",mainha|ndle,-1,|
|000010e0| 30 2c 30 2c 2d 31 2c 30 | 3a f2 63 68 61 6e 67 65 |0,0,-1,0|:.change|
|000010f0| 73 70 65 65 64 0d 06 7c | 0c 3d 72 65 74 75 72 6e |speed..||.=return|
|00001100| 25 0d 06 86 21 dd 20 a4 | 67 65 74 70 72 6f 70 65 |%...!. .|getprope|
|00001110| 72 74 65 78 74 28 69 63 | 6f 6e 2c 68 61 6e 64 6c |rtext(ic|on,handl|
|00001120| 65 29 0d 06 90 1c f2 67 | 65 74 74 68 65 74 65 78 |e).....g|etthetex|
|00001130| 74 28 69 63 6f 6e 2c 68 | 61 6e 64 6c 65 29 0d 06 |t(icon,h|andle)..|
|00001140| 9a 13 3d 24 28 21 28 62 | 6c 6f 63 6b 2b 32 38 29 |..=$(!(b|lock+28)|
|00001150| 29 0d 06 a4 1e dd 20 f2 | 67 65 74 74 68 65 74 65 |)..... .|getthete|
|00001160| 78 74 28 69 63 6f 6e 2c | 68 61 6e 64 6c 65 29 0d |xt(icon,|handle).|
|00001170| 06 ae 12 62 6c 6f 63 6b | 21 30 3d 68 61 6e 64 6c |...block|!0=handl|
|00001180| 65 0d 06 b8 10 62 6c 6f | 63 6b 21 34 3d 69 63 6f |e....blo|ck!4=ico|
|00001190| 6e 0d 06 c2 21 c8 99 20 | 22 57 69 6d 70 5f 47 65 |n...!.. |"Wimp_Ge|
|000011a0| 74 49 63 6f 6e 53 74 61 | 74 65 22 2c 2c 62 6c 6f |tIconSta|te",,blo|
|000011b0| 63 6b 0d 06 cc 05 e1 0d | 06 d6 11 dd 20 a4 47 65 |ck......|.... .Ge|
|000011c0| 74 53 74 72 28 73 25 29 | 0d 06 e0 08 ea 20 6e 24 |tStr(s%)|..... n$|
|000011d0| 0d 06 ea 21 c8 95 28 3f | 73 25 3e 33 31 29 3a 6e |...!..(?|s%>31):n|
|000011e0| 24 2b 3d bd 28 3f 73 25 | 29 3a 73 25 2b 3d 31 3a |$+=.(?s%|):s%+=1:|
|000011f0| ce 0d 06 f4 07 3d 6e 24 | 0d 06 fe 04 0d 07 08 0c |.....=n$|........|
|00001200| dd 20 a4 6d 76 28 6d 29 | 0d 07 12 27 c8 99 20 22 |. .mv(m)|...'.. "|
|00001210| 4f 53 5f 52 65 61 64 4d | 6f 64 65 56 61 72 69 61 |OS_ReadM|odeVaria|
|00001220| 62 6c 65 22 2c 2d 31 2c | 6d 20 b8 20 2c 2c 6d 0d |ble",-1,|m . ,,m.|
|00001230| 07 1c 06 3d 6d 0d 07 26 | 04 0d 07 30 0e dd 20 f2 |...=m..&|...0.. .|
|00001240| 67 65 74 73 69 7a 65 0d | 07 3a 16 73 78 3d a4 6d |getsize.|.:.sx=.m|
|00001250| 76 28 31 31 29 3c 3c a4 | 6d 76 28 34 29 0d 07 44 |v(11)<<.|mv(4)..D|
|00001260| 16 73 79 3d a4 6d 76 28 | 31 32 29 3c 3c a4 6d 76 |.sy=.mv(|12)<<.mv|
|00001270| 28 35 29 0d 07 4e 15 21 | 62 6c 6f 63 6b 3d 6d 61 |(5)..N.!|block=ma|
|00001280| 69 6e 68 61 6e 64 6c 65 | 0d 07 58 0d 62 6c 6f 63 |inhandle|..X.bloc|
|00001290| 6b 21 34 3d 30 0d 07 62 | 0e 62 6c 6f 63 6b 21 38 |k!4=0..b|.block!8|
|000012a0| 3d 73 79 0d 07 6c 12 62 | 6c 6f 63 6b 21 31 32 3d |=sy..l.b|lock!12=|
|000012b0| 30 2b 32 30 30 0d 07 76 | 13 62 6c 6f 63 6b 21 31 |0+200..v|.block!1|
|000012c0| 36 3d 73 79 2b 32 30 30 | 0d 07 80 1f c8 99 20 22 |6=sy+200|...... "|
|000012d0| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000012e0| 2c 2c 62 6c 6f 63 6b 0d | 07 8a 05 e1 0d 07 94 04 |,,block.|........|
|000012f0| 0d 07 9e 0b dd 20 f2 6b | 65 79 73 0d 07 a8 11 c8 |..... .k|eys.....|
|00001300| 8e 20 62 6c 6f 63 6b 21 | 32 34 20 ca 0d 07 b2 13 |. block!|24 .....|
|00001310| c9 20 26 31 42 31 20 3a | 20 f2 69 63 28 31 29 0d |. &1B1 :| .ic(1).|
|00001320| 07 bc 13 c9 20 26 31 42 | 32 20 3a 20 f2 69 63 28 |.... &1B|2 : .ic(|
|00001330| 32 29 0d 07 c6 13 c9 20 | 26 31 42 33 20 3a 20 f2 |2)..... |&1B3 : .|
|00001340| 69 63 28 33 29 0d 07 d0 | 13 c9 20 26 31 42 34 20 |ic(3)...|.. &1B4 |
|00001350| 3a 20 f2 69 63 28 34 29 | 0d 07 da 13 c9 20 26 31 |: .ic(4)|..... &1|
|00001360| 42 35 20 3a 20 f2 69 63 | 28 35 29 0d 07 e4 13 c9 |B5 : .ic|(5).....|
|00001370| 20 26 31 42 36 20 3a 20 | f2 69 63 28 36 29 0d 07 | &1B6 : |.ic(6)..|
|00001380| ee 13 c9 20 26 31 42 37 | 20 3a 20 f2 69 63 28 37 |... &1B7| : .ic(7|
|00001390| 29 0d 07 f8 13 c9 20 26 | 31 42 38 20 3a 20 f2 69 |)..... &|1B8 : .i|
|000013a0| 63 28 38 29 0d 08 02 13 | c9 20 26 31 42 39 20 3a |c(8)....|. &1B9 :|
|000013b0| 20 f2 69 63 28 39 29 0d | 08 0c 19 c9 20 26 31 38 | .ic(9).|.... &18|
|000013c0| 46 20 3a 20 f2 69 63 28 | 73 70 65 65 64 2b 31 29 |F : .ic(|speed+1)|
|000013d0| 0d 08 16 19 c9 20 26 31 | 38 45 20 3a 20 f2 69 63 |..... &1|8E : .ic|
|000013e0| 28 73 70 65 65 64 2d 31 | 29 0d 08 20 13 c9 20 26 |(speed-1|).. .. &|
|000013f0| 31 41 46 20 3a 20 f2 69 | 63 28 39 29 0d 08 2a 13 |1AF : .i|c(9)..*.|
|00001400| c9 20 26 31 41 45 20 3a | 20 f2 69 63 28 31 29 0d |. &1AE :| .ic(1).|
|00001410| 08 34 25 7f 20 3a 20 c8 | 99 20 22 57 69 6d 70 5f |.4%. : .|. "Wimp_|
|00001420| 50 72 6f 63 65 73 73 4b | 65 79 22 2c 62 6c 6f 63 |ProcessK|ey",bloc|
|00001430| 6b 21 32 34 0d 08 3e 05 | cb 0d 08 48 05 e1 0d 08 |k!24..>.|...H....|
|00001440| 52 04 0d 08 5c 13 dd 20 | f2 69 63 28 6e 65 77 73 |R...\.. |.ic(news|
|00001450| 70 65 65 64 29 0d 08 66 | 1e e7 20 6e 65 77 73 70 |peed)..f|.. newsp|
|00001460| 65 65 64 3d 31 30 20 8c | 20 6e 65 77 73 70 65 65 |eed=10 .| newspee|
|00001470| 64 3d 39 0d 08 70 1d e7 | 20 6e 65 77 73 70 65 65 |d=9..p..| newspee|
|00001480| 64 3d 30 20 8c 20 6e 65 | 77 73 70 65 65 64 3d 31 |d=0 . ne|wspeed=1|
|00001490| 0d 08 7a 24 f2 64 69 73 | 70 6c 61 79 28 30 2c c3 |..z$.dis|play(0,.|
|000014a0| 6e 65 77 73 70 65 65 64 | 2c 6d 61 69 6e 68 61 6e |newspeed|,mainhan|
|000014b0| 64 6c 65 29 0d 08 84 10 | f2 63 68 61 6e 67 65 73 |dle)....|.changes|
|000014c0| 70 65 65 64 0d 08 8e 05 | e1 0d ff                |peed....|...     |
+--------+-------------------------+-------------------------+--------+--------+